unit uDmLocal;

interface

uses
  SysUtils, Classes, DB, DBClient, MConnect;

type
  TdmLocal = class(TDataModule)
    DCOMConnection1: TDCOMConnection;
    cdsCliente: TClientDataSet;
    cdsClienteCODIGO: TIntegerField;
    cdsClienteCODIGOCIDADE: TIntegerField;
    cdsClienteENDERECO: TStringField;
    cdsClienteBAIRRO: TStringField;
    cdsClienteCEP: TStringField;
    cdsClienteNOME: TStringField;
    cdsCidade: TClientDataSet;
    cdsCidadeCODIGO: TIntegerField;
    cdsCidadeNOME: TStringField;
    cdsCidadeUF: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dmLocal: TdmLocal;

implementation

{$R *.dfm}

end.
